YES 0.518
↳ HASKELL
↳ BR
((pred :: () -> ()) :: () -> ()) |
import qualified Prelude |
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
((pred :: () -> ()) :: () -> ()) |
import qualified Prelude |
undefined
| False
= undefined
undefined = undefined1
undefined0 True = undefined
undefined1 = undefined0 False
toEnum 0 = ()
toEnum vz = toEnum1 vz
toEnum0 True vz = ()
toEnum1 vz = toEnum0 (vz == 0) vz
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ NumRed
((pred :: () -> ()) :: () -> ()) |
import qualified Prelude |
↳ HASKELL
↳ BR
↳ HASKELL
↳ COR
↳ HASKELL
↳ NumRed
↳ HASKELL
↳ Narrow
(pred :: () -> ()) |
import qualified Prelude |